home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d3 / dbmail.arc / ML0441.PRG < prev    next >
Encoding:
Text File  |  1988-06-19  |  640 b   |  21 lines
  1. NOTE ML0441 - RELEASE VARIABLES AND DELETE WORK FILE    10/1/84
  2. SELECT SECONDARY
  3. USE
  4. SELECT PRIMARY
  5. USE
  6. IF FILE('MLSUB1.DBF')
  7.     DELETE FILE MLSUB1
  8.     ENDIF
  9. IF FILE('ML0440.MEM')
  10.     DELETE FILE ML0440.MEM
  11.     ENDIF
  12. RELEASE OPT,VAR,OFSET,DELIM,MAX,AC,ADD,ACL,RESP,KEY,L,P,R,NOUP,OK,NID,XXD,FIL,OPT,RESP,DDEL,EXIT,DREC
  13. RELEASE CD1,CD2,CD3,CD4,CD5,CD6,CD7,CD8,CD9,CD10,CD11,CD12,CD13,CD14,CD15,CD16,CD17,CD18,CD19
  14. RELEASE L1,L2,L3,L4,L5,L6,L7,L8,L9,L10,L11,L12,L13,L14,L15,L16,L17,L18,L19
  15. RELEASE N,V,VC
  16. RETURN
  17. ,CD15,CD16,CD17,CD18,CD19
  18. RELEASE L1,L2,L3,L4,L5,L6,L7,L8,L9,L10,L11,L12,L13,L14,L15,L16,L17,L18,L19
  19. RELEASE N,V,VC
  20. RETURN
  21.